home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed48.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  815b  |  30 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE53272,21
  2. 20 PRINT"[147][156]             WHC ENTERPRISES
  3. 25 [153]"OPEN         MC DONALD'S WORD USAGE
  4. 30 PRINT"   [163][163][163][163][163][163][163][163][163] TPUG (C)  ED-48 [146][163][163][163][163][163][163][163][163][163][163]"
  5. 40 DIMA$(15)
  6. 50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  7. 60 INPUT"CHOOSE(1-15):";A$
  8. 70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
  9. 80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  10. 90 FORT=1TO1500:NEXT:PRINT"[147]  LOADING......  "A$(A)
  11. 100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  12. 110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  13. 59999 :
  14. 60001 DATA "EXERCISE 1"
  15. 60002 DATA "EXERCISE 2"
  16. 60003 DATA "EXERCISE 3"
  17. 60004 DATA "EXERCISE 4"
  18. 60005 DATA "EXERCISE 5"
  19. 60006 DATA "EXERCISE 6"
  20. 60007 DATA "EXERCISE 7"
  21. 60008 DATA "EXERCISE 8"
  22. 60009 DATA "EXERCISE 9"
  23. 60010 DATA "EXERCISE 10"
  24. 60011 DATA "EXERCISE 11"
  25. 60012 DATA "EXERCISE 12"
  26. 60013 DATA "EXERCISE 13"
  27. 60014 DATA "EXERCISE 14"
  28. 60015 DATA "TEACHER INFORM"
  29. 60020 REM WHC 93:03:20
  30.